﻿
Imports extremo
Public Class UsuarioEditar
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        If Not Page.IsPostBack Then

            Dim id = Request.Params.Get("id")

            Dim negocio = New UsuarioNegocio
            Dim modelo = negocio.obtener(id)

            Me.txtidusuario.Value = modelo.idusuario
            Me.txtNombre.Text = modelo.nombre
            Me.txtAp_paterno.Text = modelo.ap_paterno
            Me.txtAp_materno.Text = modelo.ap_materno
            Me.txtEdad.Text = modelo.edad
            Me.txtUsuario.Text = modelo.usuario
            Me.txtContraseña.Text = modelo.contraseña
            Me.txtDireccion.Text = modelo.direccion
            Me.txtDistrito.Text = modelo.distrito
            Me.txtTelefono.Text = modelo.telefono
            Me.txtEmail.Text = modelo.email
            Me.txtSexo.Text = modelo.sexo


        End If
    End Sub

    Protected Sub btnEditar_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btnEditar.Click
        Try
            Dim negocio = New UsuarioNegocio
            negocio.actualizar(Me.txtidusuario.Value, Me.txtNombre.Text, Me.txtAp_paterno.Text, Me.txtAp_materno.Text, Me.txtEdad.Text, Me.txtUsuario.Text, Me.txtContraseña.Text,
                               Me.txtDireccion.Text, Me.txtDistrito.Text, Me.txtTelefono.Text, Me.txtEmail.Text, Me.txtSexo.Text)

            Response.Redirect("Usuarios.aspx", True)
        Catch ex As Exception
            Response.Write("No se pudo actualizar")
        End Try
    End Sub

    Protected Sub btnRegresar_Click(sender As Object, e As EventArgs) Handles btnRegresar.Click
        Response.Redirect("Usuario.aspx", True)
    End Sub
End Class